home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / libcruft / blas / dcabs1.f < prev    next >
Text File  |  1996-07-19  |  199b  |  9 lines
  1.       double precision function dcabs1(z)
  2.       double complex z,zz
  3.       double precision t(2)
  4.       equivalence (zz,t(1))
  5.       zz = z
  6.       dcabs1 = dabs(t(1)) + dabs(t(2))
  7.       return
  8.       end
  9.